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ABSTRACT 


This  paper  presents  the  development  of  an  animated 
graphical  computer  simulation  of  an  air  defense 
scenario.  In  particular,  the  air  defense  scenario 
consists  of  a  variable  number  of  attackers,  pictured  as 
airplanes  and  a  variable  number  of  defenders,  pictured 
as  air  defense  artillery  tanks.  The  simulation  allows 
choosing  between  two  different  target  assignment 
protocols.  Protocol  1  simulates  a  random  target 
assignment,  where  every  defender  selects  a  target  at 
random  to  shot  at.  Protocol  2  simulates  a  controlled 
target  assignment,  where  the  defenders  are  assigned  to 
a  target  and  continue  to  track  the  target  untlll  a  kill 
Is  made.  The  simulation  Is  written  In  BASICA,  uses  an 
IBM  Personal  Computer  (IBM  PC)  and  requires  a  color 
monitor  and  a  color /graphics  adapter  card. 
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I. 


INTRODUCTION 


Microcomputers  are  used  more  and  more  frequently 
for  the  simulation  of  all  kinds  of  statistical  proces¬ 
ses.  In  military  studies  different  combat  situations 
which  do  not  follow  standard  stochastic  processes  have 
been  simulated.  Simulations  are  also  often  used  to 
manifest  numerical  results,  even  when  a  nice  mathemati¬ 
cal  closed  form  could  have  been  derived. 

This  paper  describes  the  development  of  a  computer 
simulation  for  an  air  defense  scenario.  In  a  typical 
computer  simulation  mathematical  and  logical  relation¬ 
ships  are  used  to  create  a  real  world  model.  In  this 
development  an  animated  graphical  simulation  was  chosen 
to  demonstrate  the  possibility  of  not  only  running  a 
simulation  and  giving  several  numbers  as  an  output,  but 
also  showing  the  actual  occurrence  of  the  battle  as 
animated  pictures  on  the  screen.  This  gives  the  user 
direct  Insight  Into  what  Is  happening  In  the  simulation 
without  many  hard-to-understand  explanations. 

The  Intent  was  not  to  solve  a  very  tricky  combat 
simulation,  but  rather  to  show  some  of  the  possibili¬ 
ties  of  what  a  computer  simulation  can  look  like. 


This  paper  Is  one  of  several  efforts  at  the  Naval 
Postgraduate  School  to  present  various  stochastic  pro¬ 
cesses  as  animated  graphical  simulations,  using  an  IBM 
V 

Personal  Computer  (IBM  PC-XT).  Prior  developments  were; 
.  the  simulation  of  several  Poisson  Process  Models  [Ref. 

1] ,  the  simulation  of  a  Machine-Repairman  Model  [Ref. 

2]  and  the  simulation  of  a  Jackson  Queue  Network  Model 
[Ref.  3].  These  developments  were  a  close  guide  and 
presented  many  Ideas  for  this  paper  to  follow  In  a 
series  of  animated  graphical  simulations  for  education¬ 
al  purposes. 
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II .  THE  AIR  DEFENSE  SCENARIO  MODEL 


A.  DISCUSSION 

The  s Inivil at  1  on  of*  the  model  of*  an  Air  Defense 
Scenario,  described  in  this  paper,  contains  a  simple 
Force-on-Force  scenario,  where  several  defenders, 
pictured  as  Air  Defense  Artillery  (ADA),  Intercept 
several  attackers,  pictured  as  Airplanes. 

The  defenders  are  stationary  on  'the  ground  and  are 
actually  drawn  on  the  screen  as  ADA  Tanks  [Figure  1]. 
The  user  can  choose  between  one  and  seven  defenders. 


Figure  1.  Main  Screen 


The  attackers  fly  from  right  to  left  in  the  top- 
section  of  the  screen  and  are  drawn  as  an  airplane 
formation,  for  which  the  user  can  choose  between  one 
and  nine  Airplanes. 

The  simulation  model  actually  consists  of  two  Air 
Defense  scenarios  with  two  different  target  assignment 
protocols  . 

1 .  Assignment  Protocol  1 

Protocol  1  Is  the  simulation  of  a  random  target 
assignment,  where  the  defender  randomly  chooses  a 
target  for  every  shot  he  fires.  It  Is  meant  to  be  a 
demonstration  of  the  real  world  situation,  where  no 
communication  among  the  defenders  exists  and  all 
defending  resources  are  used  to  shoot.  It  will  be 
discovered  that  there  are  a  nvunber  of  multiple  hits  on 
the  same  aircraft  because  of  the  lack  of  a  controlled 
target  assignment.  This  will  reduce  the  percentage  of 
kills  per  shot,  especially  when  there  are  more  defend¬ 
ers  shooting  and  there  are  less  attackers  to  Intercept 
as  well  as  when  the  hit  probability  for  every  defender 
Is  high. 

2 .  Assignment  Protocol  2 

Protocol  2  Is  the  simulation  of  a  controlled 
target  assignment,  where  each  defender  Is  assigned  to  a 
different  target  and  holds  on  to  It  until  a  kill  Is 
made.  After  hitting  his  target,  the  defender  Is  given  a 
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new  target  assignment.  This  Is  done  until  there 


are  ri  o 


unasslgned  targets  remaining.  Having  only  as  many 


defenders  shooting  as  there  are  targets  remaining  will 


result  In  saving  defense  resources.  There  will  be  n< 


multiple  assignments  and,  therefore,  no  multiple  hits. 


The  percentage  of  kills  per  shot  will.  In  the  long  run. 


reach  the  hit  probability  chosen  for  the  simulation.  It 


reflects  the  real  world  situation  where  there  Is 


communication  between  the  defender  and  the  command 


control  for  target  assignments. 


3.  Model  Assumptions 


Both  protocols  are  simulated  and  run  Indepen¬ 


dently,  as  chosen  by  the  user,  and  are  shown  on  the 


same  type  of  screen  [Figure  1].  Several  assumptions  are 


made  to  simplify  the  model: 


-  After  a  target  formation  has  shown  up  on  the 


screen,  the  time  elapsed  from  detecting  the  targets 


to  the  actual  shot  Is  equal  for  all  defenders.  The 


user  can  enter  this  as  the  acquisition  time  at  the 


beginning  of  the  simulation  run.  The  time  during 


which  the  attackers  are  exposed  to  the  defenders  Is 


also  constant  and  can  be  determined  by  the  user  as 


the  exposure  time.  This  means  that,  when  the 


acquisition  time  Is  higher  than  or  equal  to  the 


exposure  time,  no  shot  can  be  fired  by  the  defend¬ 


ers  and  all  airplanes  will  survive. 


-K.'- 
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B.  MODEL  ESTIMATORS 


The  following  paragraph  explains  the  model  esti¬ 
mators,  how  they  are  defined  and  how  they  are  calcu¬ 
lated  from  the  simulation  parameters. 

After  the  completion  of  the  desired  number  of 
attacks  the  program  will  show  a  list  of  numerical  or 
graphical  statistics.  They  are  based  on; 

-  the  number  of  surviving  airplanes 

-  the  number  of  kills  made 

-  the  number  of  multiple  hits  made 

-  the  niimber  of  shots  fired  by  the  defenders 

-  the  number  of  attacks  actually  flown 

-  the  number  of  time  units  from  the  first  appearance 
of  the  attackers  until  the  last  airplane  In  the 
particular  formation  was  killed. 

1 .  Average  Number  of  Shots  per  Attack 

The  number  of  shots  which  are  fired  at  the 
attacker  between  the  end  of  the  acquisition  time  and 
the  end  of  the  attack  (when  all  attackers  are  killed  or 
the  exposure  time  has  expired)  are  counted.  To  be  able 
to  compare  this  number  to  other  simulation  Iterations, 
It  Is  not  printed  as  the  total  number  of  shots,  but 
Instead  as  the  average  number  of  shots  per  attack  and 
Is  calculated  as; 


Avg  #  of  shots/attack 


totaX  #  of  shots 
#  of  attacks 


The  higher  this  number  Is,  the  less  effective 
the  defense  Is.  It  will  take  on  values  between  the  #  of 
attackers  and  the  #  of  defenders  *•  (exposure  time- 
acquisition  time),  l.e.  l  to  1400. 

2 .  Average  Number  of  Kills  per  Attack 

The  average  number  of  kills  In  every  attack  is 
also  a  direct  measurement  of  the  effectiveness  of  the 
defense.  It  Is  calculated  as: 

#  of  hits  -  #  of  mult,  hits 

Avg  #  of  kllls/attack  - - 

#  of  attacks 

It  will  be  0,  when  no  attacker  Is  killed  and 
will  be  equal  to  the  #  of  attackers  when  the  defense 
has  Its  highest  effectiveness. 

3 .  Average  Number  of  Multiple  Hits  per  Attack 

In  cases  where  an  airplane  Is  hit  more  than 
once  by  the  defenders  within  the  same  time  unit,  the 
airplane  Is  killed  by  the  first  hit.  All  additional 
hits  are  considered  as  multiple  hits.  This  Is  only 
possible  under  protocol  1  (random  assignments),  because 
In  protocol  2  (controlled  assignments)  multiple  hits 
are  specifically  avoided.  It  Is  computed  as: 


#  of  multiple  hits 


Avg  #  of  multi . 


hits/attack  - 


#  of  attacks 


This  average  number  depends  greatly  on  the 
number  of  attackers  and  defenders  as  well  as  on  the 
desired  hit  probability.  Clearly,  as  more  defenders 
shoot  against  less  attackers  with  a  higher  hit  probabi¬ 
lity,  the  higher  the  number  of  multiple  hits  will  be. 

4 .  Average  Number  of  Survivors  per  Attack 

Establishing  the  number  of  surviving  airplanes 
at  the  end  of  their  exposure  time  will  give  a  direct 
measurement  of  the  effectiveness  of  the  defense.  In 
order  to  compare  this  number  with  other  attacks,  the 
average  number  of  survivors  per  attack  Is  computed  as: 


#  of  survivors 

Avg  #  of  survivors/attack  -  - 

#  of  attacks 

The  values  are  between  zero  and  the  number  of 
attackers . 

5 .  Average  Number  of  Kills  per  Shot 

Related  to  the  theoretical  probability  of 
hitting  an  attacker  Is  the  computed  average  number  of 
kills  per  shot.  In  the  case  of  protocol  2,  these  num¬ 
bers  should  be  similar.  But  In  the  case  of  protocol  1, 
where  multiple  hits  will  occur,  the  average  number  of 


kills  per  shot  will  be  less  than  the  probability  of 
hit.  It  Is  computed  as: 

#  of  hits  -  #  of  add.  hits 

Avg  #  of  kills/shot  -  - 

#  of  shots 

The  values  will  range  from  zero  to  approximate¬ 
ly  the  theoretical  probability  of  hit. 

6 .  Average  Time  until  the  Last  Attacker  Is  Killed 
The  time  unit  In  which  the  last  attacker  was 

killed  Is  the  actual  end  of  the  attack.  It  is  recorded 
as  the  acquisition  time  plus  the  time  the  attack  lasts. 
The  minimum  value  would  be  the  acquisition  time  and  the 
maxlmvim  value  would  be  the  exposure  time. 

7 .  Percentage  of  Successful  Interceptions 

The  opposite  of  the  average  number  of  survivors 
per  attacker  Is  the  average  ntunber  of  successful 
Interceptions.  It  Is  derived  as  follows: 


#  of  survivors 

Avg  #  of  Interceptions  -  1  -  - 

#  of  attackers 

Multiplying  the  Average  number  of  Interceptions 
by  100  gives  the  percentage  of  successful  Intercep¬ 
tions.  This  value  ranges  from  0  to  100. 


III.  THE  SIMULATION 


A.  THE  COMPUTER 

The  computer  used  for  this  graphic  simulation  Is  an 
IBM  Personal  Computer  (IBM-PC)  or  a  1005t  IBM-PC 
compatible  clone.  In  order  to  run  the  simulation,  one 
of  these  computers  must  be  equipped  with  a 
Color/Graphics  adapter,  a  color  monitor,  at  least  1 
floppy  disk  drive,  and  at  least  128k-bytes  of  random 
access  memory  (RAM).  All  computers  must  be  able  to  use 
IBM  Advanced  Basic  (BASICA)  In  MS-DOS  or  PC-DOS,  which 
requires  the  IBM  BASIC  ROM  chip  set.  If  the  computer  Is 
not  equipped  with  these  chips,  it  must  be  capable  of 
running  a  generic  Version  of  BASICA,  such  as  GW-BASIC 
from  Microsoft.  The  simulation  runs  at  a  microprocessor 
clock  speed  of  4.77  MHz,  6  MHz,  8  MHz  or  even  higher. 
On  computers  with  a  higher  clock  speed,  the  simulation 
will  run  faster,  which  will  shorten  the  required 
simulation  run  time  when  large  numbers  of  attacks  are 
desired.  The  simulation  program,  AIRDEF,  was  written 
using  the  MS-DOS  disk  operating  system  Version  3.2,  but 
any  MS-DOS  or  PC-DOS  Version  developed  after  Version 
2.1  will  work.  However,  the  simulation  directly 
interacts  with  the  disk  operating  system  and,  there¬ 
fore,  no  guarantee  may  be  given,  that  the  simulation 


will  run  on  other  than  IBM-PC  or  10056  IBM-PC  compatible 
computers . 

B.  THE  PROGRAMMING  LANGUAGE 

AIRDEF  Is  written  In  IBM  Advanced  Basic  (BASICA), 
which  Is  the  programming  language  supplied  with  PC-DOS 
or  MS-DOS.  Other  Versions  like  GW-BASIC  from  Microsoft 
will  also  work.  BASICA,  the  language  version  used  is  a 
strictly  Interpreted  language  and  Is,  therefore,  much 
slower  than  compiled  languages,  such  as  TURBO  BASIC 
from  Borland  or  QuickBASIC  from  Microsoft.  To  follow 
the  previous  developments  of  graphical  simulation 
packages  at  the  Naval  Postgraduate  School  the  inter¬ 
preted  language  BASICA  was  preferred.  This  is  due  to 
the  fact  that  speed  is  not  Important  In  this  simula¬ 
tion.  The  user  needs  to  be  able  to  follow  the  events  on 
screen  easily. 

The  RND  Function  In  BASICA  does  not  satisfactorily 
produce  random  numbers  [Ref.  2].  Therefore,  the  sub¬ 
routine  RNGEN.SRT,  written  In  8088  assembly  language, 
was  used  to  produce  the  random  numbers  needed  for  this 
simulation.  During  the  development  of  the  simulation 
program.  It  was  discovered  that  the  uniformity  of  the 
random  numbers,  generated  with  RNGEN.SRT,  Improves  when 
generating  more  than  approximately  30  random  numbers, 
compared  to  the  built-in  RND  Function  using  the  default 


seed.  Due  to  the  fact  that  normally  more  than  50  random 
numbers  will  be  generated,  even  In  a  short  run  of  the 
simulation,  the  RNGEN.SRT  was  used.  A  subroutine  to 
change  the  random  number  generator  seed  of  RNGEN.SRT  is 
also  Implemented  In  the  simulation  program  and  is 
easily  accessible  from  the  main  menu. 

C.  THE  PROGRAM  STRUCTURE 

The  program  listing  for  AIRDEF.BAS  Is  supplied  In 
Appendix  B.  The  program  Is  structured  In  several 
subroutines,  to  allow  an  easy  pursuing  of  the  steps 
taken  In  the  simulation.  The  subroutines  and  modules 
are : 

-  BASICA  and  Color /Graphic  card  check 

-  print  Title  Screen 

-  load  RNGEN.SRT 

-  change  random  number  generator  seed 

-  print  Main  Menu 

-  default  simulation  parameter 

-  change  simulation  parameter 

-  capture  keyboard  response 

-  data  for  attacker  screen  coordinates 

-  print  nvimerlcal  statistic 

-  print  graphical  statistic 

-  protocol  1  sequence 


-  protocol  2  sequence 

-  exit  the  program 

D.  THE  PROGRAM  DESCRIPTION 

The  simulation  of  the  air  defense  scenario  Is 
animated  on  the  graphical  display  [Figure  1].  After  the 
desired  number  of  attacks  are  completed  the  statistics 
are  displayed  on  a  numerical  statistics  display  or  a 
graphical  statistics  display.  It  depends  on  the  user’s 
response  as  to  which  display  Is  prefered  for  the 
presentat  on  on  the  screen. 

After  the  program  Is  started,  It  reserves  16k  bytes 
of  the  memory  for  variables  and  It  dimensions  the 
graphical  arrays.  A  check  Is  made  whether  BASICA  or  a 
compatible  Basic  is  used  and  whether  a  color/graphics 
monitor  adaptor  card  is  installed  correctly  In  the 
computer  by  checking  specific  flags  In  the  memory  map 
of  the  computer. 

The  first  observed  screen  Is  the  title  screen  and 
after  pressing  any  key,  the  RNGEN.SRT  is  loaded  Into 
the  memory  and  the  main  program  menu  will  be  displayed 
on  the  screen.  The  user  then  has  several  options: 

-  start  with  default  parameters  and  Protocol  1 

-  start  with  default  parameters  and  Protocol  2 

-  change  the  simulation  parameters 


-  set  the  random  number  generator  seed  or 

-  end  the  program. 

Some  of  the  more  administrative  programming  tasks 
have  been  adopted  in  part,  or  in  whole,  from  the 
programs  written  by  R.E.  Nelson  [Ref.  1]  or  G.F.  Green 
[Ref.  2]  in  order  to  fit  into  the  series  of  animated 
graphic  simulations  already  available. 

After  the  simulation  has  been  started,  the  main 
graphics  screen  Is  drawn  and  an  airplane  (as  attacker), 
an  artillery  tank  (as  defender),  a  shooting  cloud  and  a 
fireball  are  drawn  and  saved  Into  an  array.  Depending 
on  the  desired  ntimber  of  defenders  and  attackers,  the 
line  of  defenders  is  drawn  at  the  bottom  of  the  screen, 
and  the  appropriate  formation  of  attackers  Is  drawn  at 
the  top  of  the  screen  and  stored  Into  an  array. 

Following  some  Initial  settings  of  attribute  values 
of  the  defender/attacker  assignment,  the  formation  of 
airplanes  starts  moving  from  right  to  left.  The  set 
time  units  for  acquisition  will  pass  before  the  de¬ 
fenders  begin  shooting  at  their  targets,  in  accordance 
with  their  assignment  protocol  1  or  2.  The  speed  of  the 
formation  Is  computed  from  the  total  exposure  time  and 
transformed  to  Increments  In  pixels  on  the  screen.  The 
higher  the  speed  of  the  formation,  the  more  pixels  the 
formation  Is  advanced.  The  speed  limitations,  and, 
therefore,  the  limitations  on  the  exposure  time  are 


given  by  a  resolution  of  320  pixels  horizontally  In  the 
medium  resolution  graphic  mode  and  the  width  of  the 
formation  of  120  pixels.  This  yields  a  maximum  of  200 
pixels  which  the  formation  can  travel,  and,  therefore, 
200  time  units  of  exposure.  The  width  of  a  single 
attacker  Is  30  pixels  and  yields  the  minimum  time  units 
of  the  exposure  time. 

If  protocol  1  Is  selected,  all  defenders  shoot  at 
the  same  time.  A  uniformly  distributed  random  number 
between  0  and  1  Is  drawn  for  each  shot  and  for  every 
defender  and  compared  to  the  set  probability  of  hitting 
a  target.  The  single  shot  of  each  defender  Is  con¬ 
sidered  a  hit  when  the  random  number  Is  less  than  the 
probability  of  a  hit.  A  new  random  number  Is  drawn  and 
converted  to  a  uniform  distribution  between  1  and  the 
number  of  attackers,  for  the  selection  of  a  target  from 
the  remaining  attackers.  If  the  selected  target  Is 
still  there,  the  hit  Is  considered  a  kill  and  the 
target  Is  removed  from  the  formation  by  placing  a 
fireball  In  its  place.  If  the  target  has  already  been 
hit  by  a  previous  defender,  within  the  same  time  unit, 
the  hit  Is  considered  a  multiple  hit  and  a  fireball  Is 
placed  on  the  former  coordinates  of  the  target,  to 
visualize  the  multiple  hit.  After  storing  the  new 
formation,  the  time  is  Increased  by  the  number  of 
units,  according  to  the  speed  of  the  formation.  If  It 


is  determined  by  the  random  number  generator  that  there 
has  been  no  hit  the  time  Is  Increased  Immediately, 
without  going  through  the  above  computations. 

If  protocol  2  is  selected,  a  fixed  defender- 
target  assignment  Is  Issued  at  the  beginning  of  the 
attack  (e.g.  defender  No  1  Is  assigned  to  target  No  1, 
defender  No  2  Is  assigned  to  target  No  2  and  so  forth). 
Those  defenders  with  an  assignment  will  shoot  and, 
depending  on  a  random  number,  the  shot  Is  determined  as 
hit  or  no  hit.  If  It  was  a  hit,  the  target  Is  killed  by 
removing  It  from  the  screen  with  a  fireball,  and  the 
defender  gets  a  new  assignment  as  long  as  there  are 
unasslgned  targets  remaining.  No  double  assignments  are 
Issued,  which  Is  more  realistic  and  saves  defending 
resources.  The  defender  Is  Immediately  ready  for  the 
next  shot. 

In  both  protocols  hits  are  also  characterized  by  an 
audible  beep.  The  attack  ends,  when  the  formation  has 
reached  the  left  side  of  the  screen  or  when  all 
airplanes  have  been  killed.  The  aircraft  reaching  the 
left  side  of  the  screen  are  counted  as  survivors  and 
the  time  units  elapsed  from  the  beginning  to  the  end  of 
the  attack  are  summed  up  over  all  attacks.  These 
variables  are  used  to  compute  the  statistics  at  the  end 


of  the  simulation. 


E.  THE  STATISTICS  SCREENS 


At  the  end  of  the  simulation,  when  all  desired 
attacks  have  been  flown,  the  program  will  ask  whether  a 
numerical  -or  a  graphical  representation  of  the  statis¬ 
tics  is  preferred. 

1 .  The  Numerical  Statistics  screen 

The  numerical  statistics  screen  [Figure  2] 
contains  the  averages  computed  from  the  empirical 
values  of  the  simulation  variables.  They  are  related  to 
the  simulation  parameters,  which  are  also  printed  In 
the  top  section  of  the  screen. 


PROTOCOL  1  with  10  ATTACKS 

Attackers 
Defenders 
Hi  tproJb. 

:  5  Exposure  tine:  50 
:  5  Acquisi t . tine :  10 
:  .50 

Avg  No  of 

shots/attack 

=  15.50 

Aog  No  of 

ki  1 Is/attack 

=  5.00 

Aog  No  of 

nul t . hi ts/attack 

=  3.20 

Aog  No  of 

survivors/attack 

=  0.00 

Aog  No  of 

kills/shot 

=  0.323 

Avg  tine 

to  last  survivor 

=  13.10 

<G>raphical  statistic  <C>ontinue  <Q>uitE] 


Figure  2.  Numerical  Statistics 
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The  user  has  a  choice  of: 


•5' 

Si* 

I 


i 


ilJ'I 

•'ll* 

'•It* 


(a)  switching  to  the  graphical  statistics  screen 

(b)  continuing  to  the  next  simulation 

(c)  quitting  the  program. 

2 .  The  Graphical  Statistics  Screen 

Upon  switching  to  the  graphical  statistics 
screen  [Figure  3],  the  numerical  statistics  will  be 
presented  In  graphical  form.  It  is  Intended  to  give  the 
user  a  better  insight  Into  the  relationships  of  the 
simulation  parameters  and  the  observed  variables,  by 
representing  them  in  barcharts. 


PROTOCOL  1 


PROTOCOL  2 


Attackers  :  5 
Defenders  :  5 
Hi tprob.  : . SO 

No  of  Attacks: 


AusT 
Shots 
Kills 
Mul  t . 


ack 


Attackers 
Defenders 
Hi tprob. 


No  of  Attacks: 


Aug  per  Attack: 

16  Shots"' . 9 

5.0  KillsHEHH  5.0 

3.2  Mult.  0.0 


Kills/shot</.)  =  32  Kills/shot(/.)  =  54 


Tines : 
Expos»iWS 
AcquiPW 
SurviM 


Tines : 

50  Expos:  :"=^EIZSI3S]  50 

10  Acqui  WPt  10 

13  SurvijjH  13 


In  tercepted(/.>=100  In  tercepted(/.)=100 


<N>unerical  statistic  <C>ontinue  <Q>uit 


Figure  3.  Graphical  Statistics 
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when  the  graphical  statistics  screen  is  entered  the 
first  time,  only  the  left  half  of  the  screen  is  employ¬ 
ed.  After  running  the  simulation  a  second  time,  maybe 
with  other  parameters  or  using  the  other  protocol,  the 
former  left  side  of  the  screen  is  moved  to  the  right 
side  of  the  screen  and  the  new  statistics  are  shown  on 
the  left  side.  This  will  allow  an  easy  comparison  of 
the  new  statistics  with  the  pervious  ones. 


IV.  CONCLUSIONS 


A  graphic  simulation  of  an  air  defense  combat 
scenario  Is  presented  In  this  paper.  This  animated 
graphical  simulation  allows  the  user  to  gain  Insight 
Into  the  dynamic  behavior  of  a  combat  model. 

Even  though  the  model  was  not  intended  to  solve  a 
specific  type  of  scenario,  it  Illustrates  several 
conclusions  as  to  what  type  of  target  assignment  is 
preferable.  This  depends  on  the  given  simulation 
parameters.  No  communication  between  the  defenders,  as 
demonstrated  with  protocol  1,  will  generally  result  in 
a  heavier  use  of  defending  resources,  since  multiple 
hits  will  occur  and  the  defender  will  only  stop 
shooting  when  all  attackers  are  killed.  If  only  the 
time  until  the  last  aircraft  has  survived  is  of  concern 
and  no  restrictions  on  ammunition  is  made,  then 
protocol  1  may  be  of  a  higher  ef feet i vness .  But  when 
the  average  number  of  kills  per  shot  is  Important  and 
ammunition  is  limited,  then  protocol  2  will  bring 
better  results. 

To  find  a  guideline  for  other  specific  problems, 
the  user  might  want  to  experiment  with  this  simulation 


model . 
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A.  INTRODUCTION 


AIRDEF  Is  a  stochastic  discrete  event  simulation  of 
an  air  defense  scenario  model.  It  is  a  simple  force-on- 
force  scenario,  where  several  defenders,  depicted  as 
Air  Defense  Artillery  Tanks  (ADA),  intercept  several 
attackers,  depicted  as  an  airplane  formation.  The 
simulation  Implements  a  variety  of  graphic  displays  to 
demonstrate  the  events  in  this  scenario,  and  gives  the 
user  a  choice  of  a  numerical  or  a  graphical  display  of 
the  various  statistics,  computed  in  the  simulation. 

This  manual  is  Intended  to  assist  the  user  in  the 
actual  utilization  and  operation  of  the  program.  For 
describing  commands  and  keyboard  entries,  the  following 
notation  is  used: 

-  ’  ’  single  quotes  are  used  whenever  the  user 
should  type  a  command  exactly  as  shown. 

-  <  >  brackets  are  used  whenever  a  letter  or  other 
key  should  be  pressed. 

For  Example,  ’AIRDEF’  <ENTER>  means:  type  the  command 
exactly  as  it  appears  between  the  quotes  and  press  the 
ENTER  key.  PC-DOS,  MS-DOS  and  AIRDEF  make  no  distinc¬ 
tion  between  upper  or  lower  case  letters,  hence,  either 
one  may  be  used. 


B.  MODEL  DESCRIPTION 


AIRDEF  simulates  an  air  defense  situation,  where  a 
maximum  of  seven  Air  Defense  Artillery  Tanks  attempt  to 
Intercept  a  maximum  of  nine  aircraft,  flown  In  a 
formation.  The  purpose  Is  to  show  the  differences 
between  two  specific  target  assignment  protocols.  In 
terms  of  defense  effectiveness. 

Protocol  1  Is  the  simulation  of  a  random  target 
assignment,  where  the  defender  randomly  choses  a  target 
for  every  shot  he  fires.  It  Is  Intended  to  be  a 
demonstration  of  a  real  world  situation,  where  no 
communication  between  the  defenders  or  any  command  post 
exists  and  all  defending  resources  are  used  to  Inter¬ 
cept  the  attackers.  It  will  be  discovered,  that 
multiple  hits  on  the  same  aircraft  will  occur,  due  to 
the  lack  of  coordination  In  target  assignment. 

Protocol  2  Is  the  simulation  of  a  controlled  target 
assignment,  where  each  defender  Is  assigned  to  a 
different  target  and  holds  on  to  It  until  a  kill  Is 
made.  After  hitting  his  target  the  defender  Is  reas¬ 
signed  a  new  target  until  there  are  no  unasslgned 
targets  remaining.  This  Is  a  simulation  a  real  world 
situation,  where  there  Is  communication  between  the 
defenders  and  a  command  post,  which  makes  controlled 
target  assignments.  This  will  result  In  saving  defense 
resources,  since  there  are  only  as  many  defenders 


shooting  as  there  are  targets  remaining  In  the  forma¬ 
tion.  Since  there  are  no  double  assignments  there  are 
no  multiple  hits.  Because  of  the  type  of  target 
assignment  the  percentage  of  kills  per  shot  will  be 
higher  In  protocol  2  than  In  protocol  1. 

Several  assumptions  are  made  to  simplify  the 
models : 

-  constant  acquisition  time  for  all  defenders 

-  constant  exposure  time  for  all  attackers 

-  no  second  acquisition  time  after  shooting  has 
started 

-  first  hit  Is  a  kill 

-  all  subsequent  hits  are  multiple  hits 

-  no  delay  between  consecutive  attacks 


C.  HASDVASE  AND  SOFTVAfiE  SEQUISEMENTS 

1 .  Hardware 

The  simulation  has  been  programmed  for  an  IBM 
Personal  Computer  (IBM-PC)  and  uses  color  graphics.  The 
computer  must  be  equipped  with  a  color  monitor  and  a 
color/graphics  adapter  card,  or  the  simulation  would 
not  function  properly.  The  computer  should  have,  at 
least,  one  5  1/4  Inch  floppy  disk  drive  and  128  k-bytes 
of  random  access  memory  (RAM).  The  simulation  program 
uses  BASICA,  which  requires  64  k-bytes,  and  an  assembly 
language  subroutine  program,  which  Is  loaded  Into 
memory  outside  of  BASICA. 

The  computer  must  also  be  able  to  use  IBM 
Advanced  Basic  BASICA  In  PC-DOS  or  MS-DOS  or  to  use 
GW-baslc . 

2 .  Software 

AIRDEF  Is  written  In  Advanced  Basic  BASICA, 
which  Is  normally  provided  with  the  PC-DOS  operating 
system.  The  program  will  also  run  under  MS-DOS’s  BASICA 
and  GW-Baslc. 

The  primary  BASIC  program  AIRDEF. BAS  and  the 
assembly  language  subroutine  RNGEN.SRT  are  provided  to 
the  user  on  the  distribution  diskette.  In  addition  to 
these  programs,  the  user  must  provide  the  Disk  Operat¬ 
ing  System  PC-DOS  or  MS-DOS  Version  2.1  (or  higher)  and 
the  Advanced  Basic  BASICA  or  GW-Baslc  In  order  to  run 


the  simulation.  Since  AIRDEF.BAS  uses  BASIC’s  POKE 
command  and  certain  BIOS  interrupt  calls,  there  can  be 
no  guarantee,  that  the  simulation  will  run  properly  on 
not  100?6  IBM-compatible  machines. 

3 .  Program  Files 

The  following  files  are  provided: 

-  AIRDEF . BAS . . . . the  main  program  in  3ASICA 

-  RNGEN . SRT . the  random  number  generator 

-  AIRDEF . BAT ....  to  start  the  program  in  DOS 

-  AUTOEXEC . BAT .. to  auto-start  the  program 

The  first  two  files  are  necessary  to  run  the  simula¬ 
tion.  The  two  batch  files  allow  the  user  to  either 
start  the  simulation  once  the  DOS  environment  is 
already  loaded  (AIRDEF.BAT),  or  to  auto-start  the 
simulation  while  the  computer  is  turned  on.  These  two 
files  are  not  necessary,  but  are  for  the  convenience  of 
the  user.  A  source  code  listing  of  RNGEN. SRT  is 
provided  in  Reference  2. 

The  user  must  provide  the  PC-DOS  or  MS-DOS 
operating  system  and  BASICA  or  GW-Baslc. 


D.  GETTING  STARTED 


1 .  Making  an  Application  Disk 

Before  working  with  the  simulation  program,  It 
Is  recommended  that  an  application  disk  be  created  and 
the  original  distribution  disk  be  stored  In  a  safe 
place.  Even  so  there  are  many  ways  to  create  an 
application  diskette,  this  manual  suggests  a  bootable 
application  diskette,  which  may  be  found  more  con¬ 
venient  for  single  drive  computers. 

To  make  a  bootable  diskette  follow  the  PC-DOS 
manual  and  format  a  blank  diskette  by  typing  at  the  DOS 
prompt:  ’format  a:/s’  with  the  DOS  diskette  In  drive  A. 
The  system  will  prompt  on  the  screen  to  place  a  new 
diskette  Into  drive  A  and  to  hit  <ENTER>.  The  user 
should  make  sure  that  there  Is  a  new  diskette  In  drive 
A  before  the  <ENTER>  key  Is  pressed,  otherwise  the  DOS 
diskette  would  be  erased.  The  /s  option  causes  DOS  to 
transfer  the  necessary  hidden  files  and  the  COMMAND.COM 
file  to  the  new  diskette  to  make  It  self  starting  by 
turning  on  the  computer  with  the  disk  In  drive  A.  The 
Advanced  Basic  file,  called  BASICA.COM  should  be 
transferred  by  the  user  from  the  DOS  diskette  with  the 
COPY  command.  Finally,  the  COPY  command  should  be  used 
to  transfer  all  other  files  from  the  simulation 
distribution  diskette  to  the  new  application  diskette. 


starting  the  Simulation 


tf: 


2  . 

If  the  computer  Is  turned  off,  place  the  new 
application  diskette  Into  drive  A  and  turn  the  system 
on.  The  simulation  should  start  automatically,  when  the 
AUTOEXEC.BAT  file  and  all  necessary  program  flies  are 
on  the  disk. 

If  the  computer  Is  already  turned  on  and  the  A> 
prompt  Is  on  the  screen,  simply  type  ’AIRDEF’  and  the 
file  AIRDEF.BAT  will  load  BASICA  Into  the  memory  of  the 
computer  and  the  simulation  program  AIRDEF. BAS  will  be 
loaded  Into  the  BASICA  environment  and  automatically 
started . 

If,  for  any  reason,  the  batch  files  should  not 
be  utilized,  the  simulation  can  also  be  started  by 
typing  ’BASICA’  at  the  DOS  A>  prompt  and  from  the  Basic 
environment  by  typing  ’ load"a: alrdef ’  <ENTER>  and  ’run’ 
< ENTER > . 


During  execution  of  the  program,  AIRDEF 
attempts  to  load  the  random  number  generator  RNGEN.SRT 
from  the  default  drive.  If  the  program  falls  to  find 
the  file  RNGEN.SRT  on  this  drive.  It  will  ask  the  user 
for  the  correct  drive  label,  where  the  file  can  be 
found.  Simply  type  In  the  proper  drive  label  and  press 
the  ENTER  key.  This  problem  will  never  arise,  when  the 
bootable  application  diskette  Is  used  to  start  the 
computer . 
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3. 


Title  Screen 


Upon  starting  the  simulation,  the  first  screen 
seen  by  the  user  will  be  the  title  screen  as  shown  in 
Figure  1.  From  this  point  on,  the  on-screen  prompts 
will  guide  the  user  through  the  run  of  the  simulation. 


GRAPHIC  SIMULATION 
of  an 

AIR  DEFENSE  SCENARIO 
Ly  Klaus  Schuster 

SuhHitted  in  partial  fulfillnent 
of  the  requireMents  for  the  degree  of 

Master  of  Science  in  Operations  Research 

froH  the  Naval  Postgraduate  School 
Monterey^  California 

Advisors  J.D.  Esary,  P.  Purdue 
Press  any  key  to  continue... 


Figure  1.  The  Title  Screen 


E.  PROGRAM  MAIN  MENU 

After  leaving  the  title  screen,  by  pressing  any 
key,  the  next  screen  will  be  the  program  main  menu,  as 
shown  In  Figure  2.  The  options  In  the  program  main  menu 
allow  the  user  to  read  the  Instructions,  select  the 
default  simulation  parameter  for  the  assignment 
protocol  1  or  2 ,  change  the  simulation  parameter,  get  a 
new  seed  for  the  random  number  generator  or  end  the 
program . 


< I >nstructions 

<l>Default  Paraneter  Protocol  1 
<2>Default  Paraneter  Protocol  2 
<C>hange  Sinulation  Paraneter 
<N>ew  randoM  nuMlber  generator  seed 
<Q>iiit  Prograw 

Enter  your  selection: 


Figure  2.  The  Main  Menu 


A  summarized  version  of  the  program  Instructio¬ 
ns,  found  In  this  manual,  are  available  on  screen. 
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1 .  Default  Parameter  Protocol  1 

If  this  option  is  selected  by  pressing  <1>, 
then  the  simulation  starts  with  the  default  values  of 
the  simulation  parameters.  Protocol  1  is  the  random 
target  assignment  protocol. 

These  values  are: 

-  number  of  attackers  -  7 

-  number  of  defenders  -  5 

-  probability  of  hit  -  .2 

-  exposure  time  -  40 

-  acquisition  time  -  30 

-  number  of  repeated  attacks  -  20 

-  assignment  protocol  -  1 

To  customize  the  program,  the  user  could  change  these 
default  values  In  the  program  by  altering  the  program 
statements  in  the  AIRDEF.BAS  program  in  lines  12000  to 
12200.  The  best  way  to  do  so,  is  by  listing  these  lines 
inside  the  basic  environment  by  typing  ’list  12000- 
12200’  <ENTER>  and,  in  the  full  screen  editor,  moving 
the  cursor  to  the  desired  line,  changing  the  value  and 
pressing  the  <ENTER>  key  again.  To  run  the  simulation 
with  the  new  default  values,  type  ’run’  <ENTER>. 

2 ,  Default  Parameter  Protocol  2 

If  this  option  is  selected  by  pressing  <2>, 
then  the  simulation  starts  with  the  same  default 
simulation  parameters  as  before  when  protocol  1  was 


chosen,  with  the  exception,  that  now  assignment 
protocol  2  Is  used  to  make  controlled  target  assign¬ 
ments  . 

3 .  Changing  the  Simulation  Parameter 

When  <C>  Is  pressed,  AIRDEF  will  ask  for  the 
desired  values  of  the  parameters  as  shown  In  Figure  3. 
If  the  user  tries  to  change  the  parameters  to  values 
outside  of  the  given  boundaries,  the  program  will 


CHANGE  SIMULATION  PARAMETERS 

Enter 

#  of  Attackers 

(1. . .9) 

5 

Enter 

#  of  Defenders 

(1. . .7) 

5 

Enter 

PI  hit  a  plane 

]  (0. . .1) 

.5 

Enter 

Exposure  tiHe 

(30. .200) 

50 

Enter 

Acquisi tiontiHe 

<0. .200) 

10 

Enter 

of  repeated  attacks 

10 

Enter 

Protocol  type 

(1  or  2) 

21 

Figure  3.  Change  Simulation  Parameter  Screen 


refuse  to  accept  these  values  and  ask  for  the  same 
parameter  value  again.  After  entering  the  new  values 
the  <ENTER>  key  must  be  pressed  every  time.  When  all 
values  are  changed,  the  simulation  starts  a  new  run. 


4 .  Setting  the  Random  Number  Generator  Seed 

A  new  seed  for  the  random  number  generator  can 
be  entered,  by  pressing  <N>.  The  program  will  prompt 
for  a  seed  value  as  shown  In  Figure  4.  Allowed  seed 
values  are  only  Integers  In  the  range  from  one  to 
2,147,483,646  (which  is  2^^  -  2).  Non-Integers  are 


truncated  by  the  program. 

SE^ANDOJOJUMBE^ENERATOR^EE^^ 

Allowed  seed  values  are  integers 
in  the  range  1  ...  2> 147, 483, 646 

Enter  the  new  seed  value  :  645271231 


Figure  4.  Set  New  Random  Number  Generator  Seed 


If  no  seed  Is  selected,  a  default  seed  Is  used 
by  the  RNGEN.SRT  and  updated  with  each  call  for  a 
random  number.  Every  time  the  simulation  Is  started 
from  BASICA  by  typing  ’run*,  the  seed  Is  set  to  Its 


Initial  value.  If  the  simulation  is  started  without 
leaving  AIRDEF,  the  sequence  of  random  numbers  is  not 
broken,  even  when  a  new  run  from  the  main  menu  Is  made. 

5 .  Ending  the  program 

To  quit  the  program  press  <0>  at  the  main  menu, 
at  one  of  the  statistics  screens  or  at  the  Iterations 
option  screen.  This  will  clear  the  screen  and  by 
showing  the  message  in  Figure  5,  leave  the  PC  In  the 
BASICA  command  mode  at  40  character  width.  If  It  is 
desired  to  go  to  80  character  width,  type  ’screen  2’ 
<ENTER>,  and  to  return  to  DOS,  type  ’system’  <ENTER>. 


Thank  you  for  using  AIRDEF.BAS 
Good  Byet 

Ok 

■ 


ILIST  2RUN4-  3L0AD"  4SAUE"  5C0NT«- 


A  shot  is  Indicated  by  a  small  cloud  above  the  ADA 
tanks.  A  hit  is  indicated  by  a  fireball  in  place  of  the 
airplane.  Even  if  an  attacker  is  already  killed,  a 
multiple  hit  is  also  indicated  as  a  fireball.  (Multiple 
hits  are  only  possible  with  protocol  1). 


Figure  7.  Graphics  Screen  Protocol  2 


After  the  desired  number  of  attacks  are 
completed,  or  when  any  key  was  pressed,  the  simulation 
will  stop  at  the  end  of  the  last  attack  and  give  a 
choice  of  two  different  types  of  statistical  displays: 
numerical  or  graphical.  Both  present  the  same  informa¬ 
tion,  but  in  a  different  way. 


2. 


The  Numerical  Statistics  Screen 

To  receive  the  numerical  statistics  display, 
press  <N>  and  the  screen  will  clear  and  yield  a 
numerical  presentation  of  the  simulation  statistics  as 


shown  In  Figure  8. 


PROTOCOL  1  with  28  ATTACKS 


Attackers  :  7 
Defenders  :  5 
Hi tproL.  : . 20 


Exposure  tine:  40 
Acquisi t . tine :  30 


Avg  No  of  shots/attack 
Aug  No  of  kills/attack 
Avg  No  of  nul t . hi ts/attack 
Avg  No  of  surviwors/at tack 
Avg  No  of  kills/shot 
Avg  tine  to  last  survivor 


=  36.25 
=  6.80 
=  0.50 

=  0.20 
=  0.188 
=  37.25 


<G>raphical  statistic  <C>ontinue  <Q>uit: 


Figure  8.  Numerical  Statistics 


The  upper  section  shows  the  given  simulation 
parameters,  such  as  the  type  of  protocol,  the  number  of 
attacks  actually  flown,  the  number  of  attackers  and 
defenders,  the  probability  of  hitting  an  aircraft,  the 
exposure  and  the  acquisition  time.  The  rest  of  the 
screen  shows  all  different  kinds  of  averages  computed 


In  the  simulation.  For  a  complete  description  of  the 
Implications  and  possible  values  of  the  displayed 
averages  see  chapter  B.  MODEL  ESTIMATORS  on  pages  12  to 
15,  earlier  In  this  paper. 

A  quick  crosscheck  of  the  values  can  be  made, 
by  ensuring,  that  the  sum  of  the  averages  of  kills  per 
attack  and  survivors  per  attack  add  up  to  the  number  of 
attackers,  or  checking  that  the  average  of  kills  per 
attack  divided  by  the  average  of  shots  per  attack 
equals  the  average  of  kills  per  shot,  or  checking  that 
the  value  of  the  average  time  to  the  last  survivor  Is 
higher  than  the  acqusltlon  time,  but  lower  or  equal  to 
the  exposure  time. 

On  the  bottom  line  of  the  screen  a  small  menu 
gives  the  user  the  options  of  going  to  the  graphical 
representation  of  the  statistics,  continuing  to  the 
next  menu  or  quitting  the  program. 

Quitting  the  program  by  pressing  the  <Q>  key 
will  exit  the  program  and  lead  the  PC  Into  the  BASICA 
command  mode  as  shown  In  Figure  5. 

Continuing  the  program  by  pressing  <C>  will 
cause  the  Iterations  option  screen,  as  described  In  the 
capital  F.  5 .  on  page  49  and  shown  In  Figure  11,  to  be 
displayed . 

Pressing  <G>  will  change  the  screen  to  the 
graphical  statistics  screen  (Figure  9  or  Figure  10). 


When  this  screen  Is  evoked  the  first  time  In 
the  simulation,  the  graphical  representation  utilizes 
only  the  left  half  of  the  display  as  shown  In  Figure  9. 


Figure  9.  Graphical  Statistics  (half) 


This  Is  the  graphical  representation  of  the 
numerical  statistical  values.  The  upper  section  shows 
part  of  the  desired  model  parameters  as  before,  and  the 
averages  are  visualized  as  horizontal  bargraphs.  The 
user  Is  enabled  to  compare  the  values  graphically.  The 
percentage  of  kills  per  shot  and  successfully  inter¬ 
cepted  attacks  are  shown  numerically. 


The  line  at  the  bottom  of  the  screen  offers  the 
user  the  option  to  switch  back  to  the  numerical 
statistics  screen,  to  continue  to  the  Iterations  option 
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la 
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screen  or  to  quit  the  program. 

Entering  the  graphical  statistics  screen  option 
a  second  time  will  result  In  the  graphical  utilization 
of  the  full  screen  (Figure  10).  The  bargraphs,  formerly 
on  the  left  half  of  the  graphical  screen,  are  shifted 
to  the  right  side  and  the  new  statistics  are  displayed 
on  the  left  side.  Thus  the  user  Is  enabled  to  compare 
the  former  statistical  results  with  the  most  recently 


computed  simulation  results. 


***J 


.  The  Iterations  Option  Screen 


Pressing  the  <C>  key  will  display  the  Itera¬ 
tions  option  screen  In  Figure  ll.  This  allows  the  user 
to  proceed  in  the  program  without  going  back  to  the 
main  menu.  Basically,  It  Is  Intended  to  start  new 
Iterations  In  the  simulation,  which  have  the  same 
parameters  as  before,  but  using  another  type  of  target 
assignment  protocol. 


Figure  11.  Iterations  Option  Screen 


Pressing  <S>  will  start  new  attacks  with  the 


same  type  of  protocol.  Pressing  <0>  will  start  them 

A!  with  the  alternative  orotornl .  The  random  nnmher 


generator  seed  will  not  be  reset.  This  is  only  the  case 
when  the  program  is  restarted  from  the  BASIC  command 
level.  Hereby  the  user  is  able  to  compare  simulation 
runs  with  different  seed  values,  without  changing  the 
seed  from  the  main  menu. 

In  addition  to  this,  the  user  will  still  have 
the  option  of  going  back  to  the  main  menu  or  quitting 
the  program. 

G.  PROGRAM  MODIFICATIONS 

To  alter  the  program,  the  user  should  consult  a 
BASIC  programming  manual  of  how  to  change  and  save  the 
modified  program.  A  backup  copy  of  the  original  is 
essential  at  this  point,  otherwise  a  well  running 
program  could  be  lost. 

Permanent  changes  could  be  made  for  the  default 
values  of  the  simulation  parameters.  The  default  values 
are  set  in  the  program  section  lines  12000  -  12200. 

Eliminating  the  beep,  everytlme  a  hit  occurs,  could 
be  done  by  deleting  line  51260  and  line  52180. 

After  studying  the  program  structure,  an  ex¬ 


perienced  programmer  could  add  additional  types  of 
assignment  protocols  to  the  model,  since  the  program, 
structured  with  subroutines,  is  open  for  changes. 


APPENDIX  B 


AISDEF.BAS  PROGRAM  LISTING 


1 

2 

3 

4 


»  M 


AIRDEF.BAS 

»  *» 


VI. 0,  Klaus  Schuster,  Aug  1987 


6 

10 

97 

98 

99 

100 
105 
115 
220 
230 
250 
260 

799 

800 
801 
810 
860 
865 
867 

897 

898 

899 

900 
905 
910 

912 

913 

914 

915 
920 
930 
935 
940 
945 
950 
955 
960 
970 
980 
995 


CLEAR , , 16384 


KEY  OFF 


CLS 


Initial Isat Ion 


DIM 
DIM 
DIM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


PLANE56(  124  )  ,TANKS6(  496  )  ,BULL56(  10  )  ,BUM5t(  100  ) 
CLOUD9t(  100  )  ,BLANK56(  100  )  , FORMATION?6(  2000  ) 

STATIC (8010 ) .PT(8)  ,PLNR(9  ) 

5000  ’Check  for  BASICA  and  color/graphics 
6000  ’Print  Title  screen 

10000  'Load  random  number  generator 

11000  'Print  main  program  menu 


new  run 


REPEAT  -  REPEAT  +  1 
SCREEN  1 
COLOR  1,0 
CLS 


draw  green  hills 


CIRCLE(50, 300), 200,1, 
CIRCLE( 230,300  )  ,220,1 
PAINT( 30,180),! 


93 
1 ! 


2! 

2. 


12 


draw  brown  mountains 


CIRCLE( 50 ,300  )  ,200,3,1.1, 
CIRCLE(230,300)  ,220,3,1!  , 
LINE(0,90)-(40,50),3 
LINE(40,50)-(63,90),3 
LINE( 52 ,70  )-( 90 ,40  )  ,3 
LINE(90,40)-(146,115),3 
LINE(142,110)-(240,50),3 
LINE(240,50)-(304,114),3 
PAINT(30,70 ) ,3 
LINE(  52 ,70  )-( 63 ,90  )  ,0 
LINE (142, 109)-(146, 115), ( 
IF  REPEAT  >  1  GOTO  1800 


2  ? 

2. 


12 
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998  ’ 

ggg  •  m m m m m m m m m m m m m n m m w m m tt m m m  draw  red  plane 
1000  ’ 

1001  LINE  ( 5 ,8 )-( 14 ,8  )  ,2 

1002  LINE  (22,11)-(14,8),2 
1004  LINE  (22,11)-(25.11),2 
1006  LINE  (22,8)-(25,ll  ),2 
1008  LINE  (22,8)-(28,7).2 
1010  LINE  (29,2)-(28.7).2 
1016  LINE  (29,2)-(25,2).2 
1018  LINE  (22,5)-(25,2),2 
1022  LINE  (22 ,5  )-(8,4  )  ,2 
1024  LINE  (6 , 5  )-(8,4  )  .2 
1026  LINE  (6,5  )-(2.7),2 
1028  LINE  ( 0 ,7  )-( 2 ,7  )  ,2 
1030  LINE  (5,8)-(2,7),2 
1040  PAINT( 16 ,7  )  .2 

1050  GET  (  0 ,2 )-(29 .11 ) .PLANE^fe 
1055  PUT  (0,2).PLAxNE5t 

1097  ’ 

1098  ••***•****•*»*»***•»**♦•***•♦••*•♦*«**« K »» M  draw  blue  tank 

1099  ’ 

1100  LINE(24,190)-(40,190),0 
1110  LINE(60,180)-(40,190),0 
1120  LINE(60,180)-(60,174),0 
1130  LINE(56,170)-(60,174),0 
1140  LINE(56,170)-(50,170),0 
1150  LINE(49,167)-(50,170),0 
1160  LINE(46,166)-(40,166),0 
1170  LINE(32,170)-(40.166),0 
1180  LINE(32,170)-(30,176),0 
1190  LINE(24 ,180  )-(30,176  )  ,0 
1200  LINE(24,180)-(20,184),0 
1210  LINE(24,190)-(20,184),0 
1220  LINE(36,168)-(36,166),0 
1230  LINE(48,168)-(60,152),0 
1245  LINEU5,166)-(58,150),0 
1250  LINE(60,152)-(58,150),0 

1255  CIRCLE (36, 154), 6, 0,4. 1,5. 3, .8 

1260  CIRCLE( 36 , 161  ), 6, 0,2. 36, .785, .7 

1270  PAINT(40,175),0 

1280  PAINT(36,162) ,0 

1290  LINE( 30 , 176  )-( 40 , 176  )  ,  1 

1300  LINE(50,171  )-(40,176  ),l 

1310  LINE( 20 , 184  )-( 36 . 184  )  , 1 

1320  LINE(40,190  )-(36,184  ),1 

1330  LINE(60 , 173  )-( 36 , 184  )  ,  1 

1340  CIRCLE( 41 , 186  )  ,2 , 1 

1350  CIRCLE( 47 , 183  )  ,2 , 1 

1360  CIRCLE( 52 , 181  )  ,2 , 1 

1370  CIRCLE( 57 , 178  )  ,2 , 1 
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draw  cloud 


1390 

1398 

1400 

1401 
1405 
1410 
1420 
1430 
1440 
1445 

1499 

1500 

1501 
1505 
1510 
1520 

1619 

1620 
1621 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1710 
1730 
1750 

1799 

1800 
1801 
1805 
1810 
1820 
1830 

1899 

1900 

1901 
1910 
1920 


GET  (20,150  )-(60,190),TANK5t 

f 


M 


GET  (2.131  )-(20,150  ),BLANK5t 
CIRCLE  ( 102 , 141  )  .6 ,0 . 0 ,4 
CIRCLE  (109, 145), 5. 0,4, 2. 5 
CIRCLE  (  108 , 137  )  ,6 , 0 , 5 . 5 . 2 . 6 
GET  (  96 , 131  )-(  114 , 150  )  .CLOUDS 

PUT  (  96 , 131  )  ,BLANK^6,PSET 

» 

. . draw  red  bullet 


LINE  (98,20)-(  99,21),2,BF 
GET  (98,20)-(  99 ,21 ) ,BULL^fe 
PUT  (  98,20  )  ,BULL5t 


•  M  M  »  M  M  M  M  M  M  M  w  M  w  M  d  T  aw  red/browu  fireball  *•*•**«*♦*••«•* 

* 

PSET  (3,0) 

DRAW  "p2,3" 

DRAW  ”f5 ;m0 , 9 ;ml0 ,7 ; f2 ; e2 ; f2 ;e3 ;m29 , 4" 

DRAW  "M22 , 3 ; u3 ; ml8 , 3 ; h3 ; g3 ; m3 , 0 " 

PAINT  (15, 5), 2 
PSET  (10,4) 

DRAW  "p3,3;ml3,6;el;r6;ml5,3*, g2;ml0,4” 

PAINT  (15, 4), 3 

GET  (0,0)-(29,9),BUM5t 

PUT  (0,0),BUM96 

9 


•  T  tabks  OH  screeu  •*****•-«<*- 

9 

FOR  I-l  TO  T 
X-20  +  40**(  I-l  ) 

PUT  (X  ,  150  )  ,TANK5t,AND 
NEXT  I 

9 


write  footer  ****»<*«»  h  » 


LOCATE  25,2 

IF  SIM  -  1  THEN  PRINT  USING  "Protocol  # 


1930 


1999 

2000 
2001 
2002 
2005 
2010 


(Random  selection )"; SIM: 

IF  SIM  -  2  THEN  PRINT  USING  "Protocol  # 

(Controlled  assignment )": SIM: 


animate  plane 


LOCATE  25,36;  PRINT 
X  -  200:Y  -  10 
FOR  I-l  TO  PL 


USING  "####": RUNCOUNT+1 : 

'Inlt  position  of  formation 
’get  positions  of  single  planes 
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2020  ON  I  GOSUB  5100,25200,25300,25400,25500, 

25600,25700,25800,25900 

2030  PUT  ( XP , YP ), PLANED  ’put  plane  on  screen 

2040  NEXT  I 

2050  GET  (200,10)-(319,39),FORMATION5^  ’store  formation 
2060  PUT(  200 , 10  ), FORMATION?^  ’remove  formation 

2062  FOR  I  -  1  TO  PL:PLNR{I)  -  500:  NEXT  ’init  plane 

not  shot  -  500 

2065  FOR  I  -  1  TO  T:PT(I)  -  I:  NEXT  ’init  assign  plane 

to  tank 

2066  RUNHIT  -  0:  ROUND  -  0:  AS-T :  L-T  ’init 

2067  IF  '■.TM-2  AND  PL<T  THEN  :  L-PL 

2068  RUNCOUNT  -  RUNCOUNT  +  1  ’count  runs 

2070  FOl;  X-200  TO  1  STEP  -PLSPEED  ’move  formation 

2080  PUT  (X,10 ) ,FORMATION?fe,PSET 

2085  IF  X>200-ALL0C  THEN  : FOR  DELAY-1  TO  100  : NEXT : 

GOTO  2310  ’wait  with  shoting 

2088  ROUND-ROUND+1  : ROUNDNR-ROUNDNR+1  ’count  rounds 

2089  IF  SIM  -  2  THEN  :  GOSUB  52000 

2090  IF  SIM  -  1  THEN  ;  GOSUB  51000 

2305  IF  RUNHIT  >-  PL  GOTO  2500  ’if  all  planes  hit, 

end  round 

2310  NEXT  X 

2320  FOR  I-l  TO  PL 

2330  IF  PLNR(I)-500  THEN: SURV-SURV+1  ’count  survivor 
2340  NEXT  I 

2350  PUT  (X+PLSPEED, 10 ) ,F0RMATI0N56  ’remove  formation  on 

©nd  of  scnoGn 

2500  IF  INKEYS  <>  " ”  GOTO  2510  'if  any  key  hit,  end 

round 

2505  IF  RUNCOUNT  <  RUNNR  GOTO  2000  ’if  not  all  attacks 

done ,  new  run 

2506  FOR  DELAY  -  1  TO  1000:  NEXT  ’wait  a  second 

2507  ’ 

2508  ’  ♦‘♦♦********i»M»i»t*HMMHHi»i*H»*  gnd  of  animation 

2509  ’ 

2510  SOUND  90,2:S0UND  200, 2: SOUND  90, 2: SOUND  200,2 
2515  LOCATE  1,1 

2520  PRINT  ” <N>umerlcal  or  <G>raphlcal  statistics" 

2525  GOSUB  20000 

2530  IF  RESPONSE$-"n"  OR  RESPONSES- "N"  THEN  :  GOSUB 

30000 

2535  IF  RESPONSES-"g"  OR  RESPONSES- "G"  THEN  :  GOSUB 

35000 

2547  CLS 

2548  LINE  ( 78 , 45  )-( 258 , 147  )  ,  2  ,B 
2550  LOCATE  8,12 

2552  PRINT  "New  Iterations  under:" 

2554  LOCATE  10,12 

2555  PRINT  "<S>ame  Protocol" 


2557  LOCATE  12,12 

2558  PRINT  ”<0>ther  Protocol" 

2559  LOCATE  15,12 

2560  PRINT  "<M>aln  menu" 

2561  LOCATE  17,12  :  PRINT  "<0>ult" 

2562  LOCATE  21,12  :  PRINT  "Enter  your  selection:" 

2563  GOSUB  20000 

2564  IF  RESPONSE$-"s"  OR  RESPONSES- "S "  GOTO  2570 

2565  IF  RESPONSE$-"o"  OR  RESPONSES- "0 "  THEN: IF  SIM-1 

THEN  SIM-2: ELSE  SIM-1: GOTO  2570 

2566  IF  RESPONSES-"q"  OR  RESPONSES- "0 "  GOTO  40000 
2570  SURV-0  :  HIT-0  :  ROUNDNR-0  :  SHOT-0  :  DBL-0  : 

RUNCOUNT-0  ’reset 

2579  IF  RESPONSES-"m"  OR  RESPONSES- "M"  GOTO  11000 


2580  GOTO  800  ’start  new  runs 

4999  ’ 

5000  •**•*♦***•»»*  BASICA  and  Colorgraphlcs  check  *•«»*•*«»*• 

5001  ’ 

5010  DEF  SEG  -  0 


5020  IF  (PEEK(&H410)  AND  &H30 )  <>  &H30  THEN  DEF  SEG  : 

GOTO  5070 

5030  LOCATE  3,1: PRINT  "Sorry  ...  " 

5040  PRINT  "you  do  not  have  the  col or /graph  1 c s  monitor 

adapter ! " 

5050  PRINT  "This  simulation  uses  graphics  and  requires 

that  adapter . " 

5060  DEF  SEG: END 

5070  ON  ERROR  GOTO  5080  :  PLAY  "pl6"  :  GOTO  5130 
5080  WIDTH  80  :  CLS  :  LOCATE  3,1 

5090  PRINT  "This  simulation  uses  advanced  BASIC." 

5100  PRINT  "Return  to  DOS  by  typing  ’SYSTEM’," 

5110  PRINT  "load  BASICA  and  reload  this  program" 

5120  END 

5130  ON  ERROR  GOTO  0 
5140  RETURN 

5999  ’ 

6000  •  «*»»****i*»*«««*»*n*»«“*«*»**»»»*»»«»  Title  Screen  *•»«•»»»«* 

6001  ’ 

6010  SCREEN  0.1  :  COLOR  14,1,1  :  WIDTH  40  :  CLS 
6020  LOCATE  2,12  :  PRINT  "GRAPHIC  SIMULATION" 

6030  LOCATE  4,19  :  PRINT  "of  an" 

6040  LOCATE  6,11  :  PRINT  "AIR  DEFENSE  SCENARIO" 

6050  LOCATE  9,13  :  PRINT  "by  Klaus  Schuster" 

6060  LOCATE  14,5  :  PRINT  "Submitted  In  partial 

fulfil Iment" 

6070  LOCATE  15,2  :  PRINT  "of  the  requirements  for  the 

degree  of" 

6080  LOCATE  17,1  :  PRINT  "Master  of  Science  In 

Operations  Research" 

6090  LOCATE  19,4  :  PRINT  "from  the  Naval  Postgraduate 

School " 
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6100  LOCATE  20,11:  PRINT  "Monterey,  California" 

6110  LOCATE  22,6  :  PRINT  "Advisors  J.D.  Esary,  P. 

Purdue " 

6120  LOCATE  25,2  :  PRINT  "Press  any  key  to 

continue . . . " ; 

6130  GOSUB  20000 
6140  RETURN 

6999  ’ 

7000  ’  ••»*»*»*»****»Hi.»*.M*».mi*i*i*«*t»i*t.«  Instructions 

7001  ’ 

7010  SCREEN  0,1  :  COLOR  14,1,1  :  WIDTH  40  :  CLS 
7020  LOCATE  3,6  :  PRINT  "INSTRUCTIONS  FOR  THE  MENU" 

7025  PRINT  BORDERS 

7030  LOCATE  5,2 

7031  PRINT  "  This  program  Is  an  animated  graphic" 

7035  LOCATE  6,2 

7036  PRINT  "simulation  of  an  air  defense  scenario" 

7040  LOCATE  7,2 

7041  PRINT  "In  which  some  attacking  aircraft  are" 

7045  LOCATE  8,2 

7046  PRINT  "Intercepted  by  several  defenders." 

7050  LOCATE  10,2 

7051  PRINT  "  Two  target  assignment  protocols  are  " 

7055  LOCATE  11,2 

7056  PRINT  "possible:" 

7060  LOCATE  13,2 

7061  PRINT  "  (1)  random  selection  by  the  defender" 

7065  LOCATE  14,2 

7066  PRINT  "  (2)  controlled  target  assignment" 

7070  LOCATE  18,2 

7071  PRINT  "  The  program  menus  will  guide  you." 

7080  LOCATE  25,1  : 

PRINT  "Press  any  key  to  continue  ..."; 

7085  GOSUB  20000 
7090  CLS 

7100  LOCATE  1,2 

7101  PRINT  "Default  parameters  for  both  protocols:" 

7105  LOCATE  3,2 

7106  PRINT  "  Number  of  attackers  :  7" 

7110  LOCATE  4,2 

7111  PRINT  "  Number  of  defenders  :  5" 

7115  LOCATE  5,2 

7116  PRINT  "  Probability  of  hit  :  .2" 

7120  LOCATE  6,2 

7121  PRINT  "  Exposure  time  :  40" 

7125  LOCATE  7,2 

7126  PRINT  "  Acquisition  time  :  30" 

7130  LOCATE  8,2 

7131  PRINT  "  Number  of  repeated  attacks:  20" 

7145  LOCATE  11,2 

7146  PRINT  "Options  of  the  main  menu:" 
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7147  LOCATE  13,2 

7148  PRINT  "Pressing  <I>  gives  the  above" 

7149  LOCATE  14,2 

7150  PRINT  "  Instruction  screens" 

7151  LOCATE  15,2 

7152  PRINT  "Pressing  <1>  starts  simulation  with" 

7155  LOCATE  16,2 

7156  PRINT  "  defaults  in  protocol  1" 

7160  LOCATE  17,2 

7161  PRINT  "Pressing  <2>  starts  simulation  with" 

7165  LOCATE  18,2 

7166  PRINT  "  defaults  in  protocol  2" 

7170  LOCATE  19,2 

7171  PRINT  "Pressing  <C>  allows  alteration  of" 

7175  LOCATE  20,2 

7176  PRINT  "  simulation  parameters" 

7180  LOCATE  21,2 

7181  PRINT  "Pressing  <N>  allows  alteration  of" 

7185  LOCATE  22,2 

7186  PRINT  "  random  number  seed" 

7197  LOCATE  23,2 

7198  PRINT  "Pressing  <Q>  quits  the  program" 

7200  LOCATE  25,1  : 

PRINT  "Press  any  key  to  continue 

7201  GOSUB  20000 

7202  CLS 

7205  LOCATE  1,2 

7206  PRINT  "The  Statistics  Screens:" 

7210  LOCATE  3,2 

7211  PRINT  "To  show  the  statistical  results," 

7215  LOCATE  4,2 

7216  PRINT  "the  program  has  two  options:" 

7220  LOCATE  6,2 

7221  PRINT  "  <N>  Numerical  statistics  screen" 

7225  LOCATE  7,2 

7226  PRINT  "  <G>  Graphical  statistics  screen" 

7230  LOCATE  9,2 

7231  PRINT  "Both  present  the  same  Information." 

7235  LOCATE  11,2 

7236  PRINT  "Upon  entering  the  graphical  screen  a" 

7240  LOCATE  12,2 

7241  PRINT  "second  time,  the  previous  screen  will" 

7245  LOCATE  13,2 

7246  PRINT  "be  shown  on  the  right  side." 

7250  LOCATE  15,2 

7251  PRINT  "Continuing  from  the  statistics  screens 

7255  LOCATE  16,2 

7256  PRINT  "leds  to  the  Iterations  option  screen" 
7260  LOCATE  18,2 


7261  PRINT  "Pressing  <S>  starts  simulation  under  " 

7265  LOCATE  19,2 

72bb  PRINT  "  same  default  parameters" 

7270  LOCATE  20,2 

1 21 \  PRINT  "  as  before" 

7275  LOCATE  21,2 

7276  PRINT  "Pressing  <0>  starts  simulation  under  " 

7280  LOCATE  22,2 

7281  PRINT  "  other  protocol  than  before" 

7285  LOCATE  23,2 

7286  PRINT  "Pressing  <M>  goes  back  to  main  menu  " 

7290  LOCATE  24,2 

7291  PRINT  "Pressing  <Q>  quits  the  program"; 

7300  LOCATE  25,1  : 

PRINT  "Press  any  key  to  go  back  to  main  menu"; 

7301  GOSUB  20000 

7302  CLS 

7500  GOTO  11010  'return  to  main  menu 

9999  ’ 

10000  load  random  number  generator  kmmhmh**** 

10001  ' 

10010  RNGEN-0:U!-0 

10015  ON  ERROR  GOTO  10050  'file  not  found 

10020  DEF  SEG  -  &H1A00 

10030  BLOAD  DRIVE$+"rngen. srt" , 0 

10032  A#  -  3245678!  'default  seed 

10034  GOTO  10570 
10040  RETURN 

10050  IF  ERR  053  THEN  ON  ERROR  GOTO  0 
10060  CLS: LOCATE  3,1 

10070  INPUT  "On  which  drive  could  RNGEN.SRT  be 

found?" ; AS 

10080  DRIVES  -AS+":" 

10090  RESUME  10020 

10499  ' 

10500  ’*♦*•♦»*»♦»•»•**•»♦»•  Change  random  number  seed 

10501  ' 

10510  COLOR  14,0,0  ;  CLS 

10520  LOCATE  3,4  ;  PRINT  "SET  RANDOM  NUMBER  GENERATOR 

SEED" -.PRINT  BORDERS 

10530  LOCATE  7,3  :  PRINT  "Allowed  seed  values  are 

Integers " 

10540  LOCATE  9,3  ;  PRINT  "In  the  range  1  ... 

2,147,483,646" 

10550  LOCATE  13,2  :  INPUT  "Enter  the  new  seed  value  : 

"  ,  A# 

10560  IF  A#<1  OR  A#>2147483646#  THEN  LOCATE  13,2:PRINT 

STRINGS(39 ,32 ) :G0T0  10550 

10570  DEF  SEG  -  &H1A00 

10580  Al!  -  INT(A#/16777210#): 

A2!  -  INT((A#-Al!"16777210#)/65536!  ) 


10600  ’poke  the  seed’s  upper  2  bytes  into  RNGEN’s  seed 

storage 

10610  POKE  &H164,A1!  :  POKE  &H163,A2! 

10620  A#  -  A#-A1  !  •‘16777210#-A2  * -65536  ! 

10630  Al!  -  INT(A#/256)  : 

A2 !  -  A#-A1 ! -256 

10640  ’poke  the  seed’s  lower  2  bytes  Into  RNGEN’s  seed 

storage 

10650  POKE  &H162,A1!  :  POKE  &H161,A2! 


10660  GOTO  11010  ’return  to  main  menu 

10999  ’ 

11000  ’  »*****“Htn»MHH**»*i*in*i*i*»»  Main  Program  Menu 

11001  ’ 

11005  INIT  -  0 


11010  BORDERS  -  STRINGS ( 40 , 223  ) 

11020  SCREEN  0,1  :  COLOR  14,3,0  :  WIDiH  40  :  CLS 
11030  LOCATE  3,14  :  PRINT  ’’PROGRAM  MENU”  : 

PRINT  BORDERS 

11040  LOCATE  5,3  :  PRINT  ”  <  I  >nstruc  t  Ions ’’ 

11050  LOCATE  7,3  ;  PRINT  ”<l>DefauIt  Parameter 

Protocol  1" 

11060  LOCATE  9,3  :  PRINT  ’’<2>DefauIt  Parameter 

Protocol  2" 

11070  LOCATE  11,3  :  PRINT  ”<C>hange  Simulation 

P  Cl  I*  CLni0  0 1*  ** 

11075  LOCATE  13,3  :  PRINT  ’’<N>ew  random  number 

generator  seed" 

11080  LOCATE  15,3  ;  PRINT  ’’<0>ult  Program” 

11090  LOCATE  18,3  ;  PRINT  ’’Enter  your  selection:”; 
11100  GOSUB  20000  ’get  keyboard  response 

11110  A56  -  INSTR( ”IN12CQlnl2cq” , RESPONSES  ) 

11120  IF  A*  -  0  THEN  11010  :  ELSE  ON  A5fc  GOTO  7000, 

105  00,12000,12000, 13000,4  0000  , 
7000,10500 , 12000 , 12000 , 13000,40000 

11999  ’ 

12000  '•*•*•*•*•*«*»  Default  simulation  parameter  ***»•**»«***»* 

12001  ’ 

12010  T  -  5 
12020  PL  -  7 
12030  HITPROB  -  .2 

12050  EXPOS  -  40  ’30... 200 

12060  RUNNR  -  20 
12070  AIMTIME  -  30 
12080  SIM  -  1 

12085  IF  A?6  -  4  OR  k%  -  10  THEN  SIM  -  2 
12090  ALLOC  -  ( 200-AIMTIME )/EXP0S 
12100  PLSPEED  -  200/EXPOS 
12200  GOTO  800 
12999  ’ 


13000  ' «» •* * Change  simulation  parameters  **♦»•*•••*«•«••♦ 

13001  ’ 

13010  SCREEN  0,1  :  COLOR  15,5,0  :  CLS 

13050  LOCATE  3,6  ;  PRINT  "CHANGE  SIMULATION  PARAMETERS' 
13060  PRINT  BORDERS 

13065  MSGIS  -  "Can  not  be  accepted!  Please  try  again." 
13070  LOCATE  6,1  :  INPUT  "Enter  #  of  Attackers 

(1  .  .  . 9  )  :  " . PL 

13080  IF  PL<1  OR  PL>9  THEN  LOCATE  23,1:  PRINT  MSGIS: 

LOCATE  6,1: PRINT  STRINGS(  40 , 32  )  : 

GOTO  13070 

13090  LOCATE  23,1  :  PRINT  STRINGS(  40 , 32  )  ; 

13100  LOCATE  8,1  : 

INPUT  "Enter  #  of  Defenders  (1...7):  ",T 

13110  IF  T<1  OR  T>7  THEN  LOCATE  23,1:PRINT  MSGIS: 

LOCATE  8,1:PRINT  STRINGS(  40 , 32  )  : 

GOTO  13070 

13120  LOCATE  23,1  :  PRINT  STR INGS ( 4 0 , 32  )  ; 

13130  LOCATE  10,1  :  INPUT  "Enter  P[  hit  a  plane  ] 

( 0 .  .  . 1  )  : " ,HITPR0B 

13140  IF  HITPROB<0  OR  HITPR0B>1  THEN  LOCATE  23,1: 

PRINT  MSG1S:L0CATE  10,1:PRINT  STRINGS( 40 , 32  )  : 

GOTO  13130 

13150  LOCATE  23,1  :  PRINT  STRINGS ( 40 , 32 ) ; 

13160  LOCATE  12,1:  INPUT  "Enter  Exposure  time 

( 30. .200 ) : " , EXPOS 

13170  IF  EXPOSOO  OR  EXPOS>200  THEN  LOCATE  23,1: 

PRINT  MSGIS: LOCATE  12,1: PRINT  STRINGS( 40 , 32  )  : 

GOTO  13160 

13180  LOCATE  23,1  :  PRINT  STRINGS ( 4 0 , 32  )  ; 

13190  LOCATE  14,1:  INPUT  "Enter  Acqulsltlontlme 

(0. .200 ) : " ,AIMTIME 

13200  IF  AIMTIME<0  OR  AIMTIME>200  THEN  LOCATE  23,1: 

PRINT  MSGIS: LOCATE  14,1: PRINT  STRINGS(  40 , 32  )  : 

GOTO  13190 

13210  LOCATE  23,1  :  PRINT  STRINGS( 40 , 32  ) ; 

13220  LOCATE  16,1:  INPUT  "Enter  #  of  repeated  attacks 

" , RUNNR 

13230  LOCATE  18,1:  INPUT  "Enter  Protocol  type  (1  or 

2):  ",SIM 

13240  IF  SIM<1  OR  SIM>2  THEN  LOCATE  23,1:PRINT  MSGIS: 

LOCATE  18,1:PRINT  STRINGS( 40 , 32  )  : 

GOTO  13230 

13250  LOCATE  23,1  :  PRINT  STR INGS ( 4 0 , 32 ) ; 

13260  ALLOC  -  ( 200 “AIMTIME )/ EXPOS 
13270  PLSPEED  -  200/EXPOS 
13300  GOTO  800 
19999  ’ 


20000 

20001 

$ 

20010 

DEF  SEG  :  POKE  &H6A.0 

20020 

RESPONSES  -  INKEYS  :  IF  RESPONSES  -  ” " 

THEN  20020 

20030 

RETURN 

24999 

» 

25000 

25001 

f 

25100 

XP  -  X 

25110 

YP  -  Y 

+  10 

25120 

RETURN 

25200 

XP  -  X 

+  30 

25210 

YP  -  Y 

25220 

RETURN 

25300 

XP  -  X 

+  30 

25310 

YP  -  Y 

+  20 

25320 

RETURN 

25400 

XP  -  X 

+  60 

25410 

YP  -  Y 

+  10 

25420 

RETURN 

25500 

XP  -  X 

+  30 

25510 

YP  -  Y 

+  10 

25520 

RETURN 

25600 

XP  -  X 

+  60 

25610 

YP  -  Y 

25620 

RETURN 

25700 

XP  -  X 

+  60 

25710 

YP  -  Y 

+  20 

25720 

RETURN 

25800 

XP  -  X 

25810 

YP  -  Y 

25820 

RETURN 

25900 

XP  -  X 

25910 

YP  -  Y 

+  20 

25920 

RETURN 

25999 

f 

30000 

30001 

9 

30005 

CLS 

30010 

VIEW  SCREEN  ( 1 ,8  )-( 318 , 168  )  , 0 , 2 

30020 

LOCATE 

3, 7; PRINT  USING 

"PROTOCOL  #  with  ####  ATTACKS" ; SIM; RUNCOUNT 

30022 

LOCATE 

4 ,7:PRINT 

fl  ff 

30025 

LOCATE 

5,2 

30030 

PRINT  1 

USING 

"Attackers  :  #  Exposure  time :###"; PL ; 

EXPOS 

30032 

LOCATE 

CM 

61 


L^ 


30035 


30039 

30040 

30044 

30045 

30049 

30050 


30059 

30060 


30069 

30070 


30079 

30080 


30089 

30090 


30099 

30100 


30150 

30180 

30190 

30200 

30210 

30240 

34999 

35000 

35001 
35010 
35020 
35025 
35030 
35035 
35040 


PRINT  USING 

"Defenders 


Acqulsl t . time : ###" ; T ; 

AIMTIME 


LOCATE  7  2 

PRINT  USING  "Hitprob.  HITPROB 

LOCATE  8,2 

PRINT 


LOCATE  10,2 
PRINT  USING 

"Avg  No  of  shots/attack 

LOCATE  12,2 
PRINT  USING 

"Avg  No  of  kills/attack 
LOCATE  14,2 


UU " • 

SHOT/RUNCOUNT 


_  UM  . 

HIT/RUNCOUNT 


PRINT  USING 

"Avg  No  of  mult .hits/attack  - 

DBL/RUNCOUNT 

LOCATE  16,2 
PRINT  USING 

"Avg  No  of  survivors/attack  - 

SURV/RUNCOUNT 

LOCATE  18,2 
PRINT  USING 

"Avg  No  of  kills/shot  -  #.###"; 

HIT/SHOT 

LOCATE  20,2 
PRINT  USING 

"Avg  time  to  last  survivor 

(ROUNDNR/RUNCOUNT)  +  AIMTIME 

VIEW 

LOCATE  25,1  ; 

PRINT  "<G>raphlcal  statistic  <C>ontlnue  <Q>ult"; 
GOSUB  20000 

IF  RESPONSE$-"g"  OR  RESPONSE$-"G"  THEN  CLS  : 

GOSUB  35000 

IF  RESPONSES- "q"  OR  RESPONSES- "Q "  THEN  : 

GOSUB  40000 

RETURN 


graphical  statistics 


SCREEN  1  :  COLOR  1,0  :  CLS 
IF  GRPH  -  1  THEN  PUT  ( 159 , 1  )  , STAT156 
LINE  ( 1 ,1  )-( 158,189  )  ,2, B 


LOCATE  2,5 
LOCATE  3,2 
LOCATE  4,2 


PRINT  USING"PR0T0C0L  #";SIM 

PRINT  " - " 

PRINT  USING  "Attackers  :  #";PL 
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35050  LOCATE  5,2  :  PRINT  USING  "Defenders  :  #";T 

35060  LOCATE  6,2  :  PRINT  USING  "Hitprob.  HITPROB 

35065  LOCATE  8,2  :  PRINT  USING  "No  of  Attacks:####"; 

RUNCOUNT 

35070  LOCATE  9,2  :  PRINT  " - 

35075  LOCATE  10,2  :  PRINT  "Avg  per  Attack;"; 

35080  LOCATE  11,2  :  PRINT  "Shots" 

35090  LOCATE  12,2  ;  PRINT  "Kills" 

35100  LOCATE  13,2  :  PRINT  "Mult." 

35110  LINE  (48,80)-(128,87),l,BF 
35120  LINE  (48,88)-(  (  (80/SH0T)*‘HIT)+48,95  )  ,2,BF 
35130  LINE  U8,96  )-(  (  (80/SHOT)‘‘DBL)+48,103)  ,3,BF 
35140  LOCATE  11,16  :  PRINT  USING  "####"; SHOT/RUNCOUNT 

35150  LOCATE  12,16  :  PRINT  USING  "##.#" ;HIT/RUNCOUNT 

35160  LOCATE  13,16  :  PRINT  USING  "##.#"; DBL/RUNCOUNT 

35170  LOCATE  15,2  :  PRINT  USING  "K1 1 1 s/ shot ( 56  )  -###"; 

lOO-HIT/SHOT 

35175  LOCATE  18,2  ;  PRINT  "Times;" 

35180  LOCATE  19,2  ;  PRINT  "Expos" 

35190  LOCATE  20,2  :  PRINT  "Acqul" 

35200  LOCATE  21,2  :  PRINT  "Survl" 

35210  LINE  (48,144)-(128,151),1,BF 

35220  LINE  ( 48 , 152 ) - ( ( ( 80/EXPOS ) "AIMTIME )+48 , 159 ) , 2 , BF 
35230  LINE  ( 48 , 160 ) - ( ( ( 80/EXPOS  ) " ( ( ROUNDNR/RUNCOUNT )  + 

AIMTIME) )  +  48,167  )  ,3,BF 

35240  LOCATE  19,16  :  PRINT  USING  "####"; EXPOS 

35250  LOCATE  20,16  ;  PRINT  USING  "####"; AIMTIME 

35260  LOCATE  21,16  :  PRINT  USING  "####"; 

( ROUNDNR / RUNCOUNT ) +AIMT IME 

35270  LOCATE  23,2  :  PRINT  USING  " Intercepted( 56  )-###" ; 

100*»(  l-(SURV/(RUNCOUNT"PL)  )  ) 
35275  GET  ( 1 , 1  )-( 158 , 199  )  ,STAT156 
35277  GRPH  -  1 

35280  LOCATE  25,1  ;  PRINT  "<N>umerlcal  statistic 

<C>ontinue  <Q>uit"; 

35290  GOSUB  20000 

35300  IF  RESPONSE$-"n"  OR  RESPONSES- "N"  THEN  CLS  : 

GOSUB  30000 

35310  IF  RESPONSE$-"q"  OR  RESP0NSE$-"0"  THEN  ; 

GOSUB  40000 

36000  RETURN 

39997  ’ 

39998  Exit  program  »♦•*»*»»•*««* 

39999  ’ 

40000  CLS 

40005  L0CATE12,4:PRINT"Thank  you  for  using  AIRDEF.BAS  " 

40010  LOCATE  14 , 15 ; PRINT"Good  Bye!" 

40011  FOR  DELAY  -  1  TO  1000;  NEXT 
40015  KEY  ON 

40025  LOCATE  20,1 
40030  END 


50999  ' 

51000  '  prOtOCOl  S  1  HI  1  «♦  M  H  H  1.  M  M  H 

51001  ’ 

51020  FOR  I-l  TO  L  ’put  clouds  for  shooting  tanks 

51030  XC  -  18+40*‘I 

51040  XB  -  22+40‘*I 

51050  PUT  (XC.131  )  ,CL0UD5t,PSET 

51060  PUT  (XB  ,  147  )  ,BULL?6,PSET 

51070  NEXT  I 

51080  FOR  I-l  TO  L  ’remove  clouds 

51090  XC  -  18+40“I 

51100  XB  -  22+40*‘I 

51110  PUT  (XC  ,  131  )  ,BLANK56,PSET 

51120  NEXT  I 

51130  FOR  I-l  TO  T  ’for  every  shot 

51140  SHOT  -  SHOT  +  1  ’count  shots 

51150  DEF  SEG  -  &H1A00 

51160  CALL  RNGEN(U!  )  ’get  rnd  # 

51170  IF  U!  >  HITPROB  GOTO  51320  ’If  no  hit  next  tank 
51180  CALL  RNGEN(U! ) 

51190  TP  -  CINT(U!*‘PL  +  .5) 

51200  IF  PLNR(TP)  <  ROUND  GOTO  51180 

51210  IF  PLNR(TP)  -  ROUND  THEN : DBL-DBL+1 : GOTO  51250  ’if 

shot  this  round, dbl  hit 
51220  HIT  -  HIT  +  1  ’count  total  hits 

51230  RUNHIT  -  RUNHIT  +  1  ’count  hits  this  round 

51240  PLNR(TP)  -  ROUND  ’set  pi  shot  in  round# 

51250  ON  TP  GOSUB  25100,25200,25300,25400,25500, 

25600,25700,25800,25900 

51260  SOUND  90,2  ’sound  and  bum^t 

51270  PUT  (XP,  YP)  ,BUM56,PSET 
51280  FOR  DELAY  -  1  TO  500  :  NEXT 
51290  PUT  (XP,YP)  ,BUM?t 

51300  GET  (X,10)-(X+119, 39), FORMATIONS  ’get  new 

formation  w/o  shot  planes 

51320  NEXT  I 
51400  RETURN 

51999  ’ 

52000  ’*♦*••**♦♦*♦*»•***♦*♦*♦♦»*♦»•♦*••*•«*»♦«•»  protocol  slm  2  »♦»»*♦  h n **!♦  «* 

52001  ’ 

52010  FOR  I-l  TO  L  ’put  clouds  to  tank 

52020  IF  PT(I)  -  0  GOTO  52100  ’if  no  assignment  next 

tank 

52030  XC  -  18+40**! 

52040  XB  -  22+40‘*I 
52050  PUT( XC, 131 ), CLOUDS, PSET 
52060  PUT(XB, 147), BULLS, PSET 
52070  FOR  DELAY  -  1  TO  100  ;  NEXT 

52080  PUT ( XC , 131  ), BLANKS, PSET  ’remove  cloud 

52090  SHOT  -  SHOT  +  1  ’count  shots 

52100  NEXT  I 


52110  FOR  I  -  1  TO  L 

52115  IF  PT(I)  -  0  GOTO  52260 


52120 

52130 

52140 

52150 

52160 

52170 

52180 

52190 

52200 

52210 

52220 

52225 

52230 

52240 

52260 

52270 


’If  no  assignment  next 

tank 


DEF  SEG  -  &H1A00 

CALL  RNGEN(U»)  'get  rnd  # 

IF  U!  >  HITPROB  GOTO  52260  'If  no  hit  next  tank 
HIT  -  HIT  +  1  'count  total  hits 

RUNHIT  -  RUNHIT  +  1  'count  hits 

ON  PT(I)  GOSUB  25100,25200.25300,25400,25500, 

25600,25700,25800,25900 

SOUND  90,2  'sound  and  bum^ 

PUT  (XP  .  YP  )  .BUM56,PSET 

FOR  DELAY  -  1  TO  500  :  NEXT 

PUT( XP , YP ) , BUM^  'remove  bum  and  plane 

GET(X,10)-(X  +  119,39),FORMATION56  'get  new 

formation  w/o  shot  planes 
PLNR(PT(I))  -  ROUND  'set  pi  shot  In  round# 

PT(I)  -  0  'set  tank  free  for  new  assignment 

IF  AS  <  PL  THEN  AS  -  AS  +  1  :  PT( I  )  -  AS  'get  new 

assignment  for  tank 

NEXT  I 
RETURN 
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